home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / BMTXT < prev    next >
Text File  |  1994-12-13  |  423b  |  5 lines
  1. BMTXT: procedure expose bmt.;b=ARG(1)*2;getuser 2401064;t=import(x2c(d2x(result,8)),220)
  2.   parse var t 13 p +4 =b+21 s +2 =b+121 l +2;if ARG()=2&(ARG(2)<=c2d(l)) then do
  3.   m=import(import(offset(p,4*(c2d(s)+ARG(2))),4),512);parse var m t'00'x;return translate(t,'\{','');end
  4.   c=0;do a=c2d(s) to (c2d(s)+c2d(l)-1);m=import(import(offset(p,4*a),4),512);parse var m t'00'x;bmt.c=translate(t,'\{','');c=c+1;end;return c-1
  5.